Modification/adding/deleting of a styles set

Modification of a set with the specified name:

var

Styles: TfrxStyles;

StyleSheet: TfrxStyleSheet;

{ search for the required set }

Styles := StyleSheet.Find('Styles2');

{ modify a style with the Style1 name from the found set }

with Styles.Find('Style1') do

Font.Name := 'Arial Black';

Adding a set to a library:

var

Styles: TfrxStyles;

StyleSheet: TfrxStyleSheet;

{ the third set }

Styles := StyleSheet.Add;

Styles.Name := 'Styles3';

Deleting a set from a library:

var

i: Integer;

StyleSheet: TfrxStyleSheet;

{ search for the third set }

i := StyleSheet.IndexOf('Styles3');

{ if find, delete }

if i <> -1 then

StyleSheet.Delete(i);